#include<bits/stdc++.h>
using namespace std;
const int N=1e6+2,M=100;
int len,dx[]={1,0,-1,0},dy[]={0,-1,0,1};
char c[N],ans[N],col[]={'R','G','B'},f[M+10][M+10],dir[]={'D','L','U','R'};
void solve1()
{
	int cnt=0,n=0,m=0;
	for(int i=1;i<=M;i++)
	{
		n=i;
		if(i%2==1)
		{
			for(int j=1;j<=M;j++)
			{
				m=max(m,j);
				f[i][j]=c[++cnt]; 
				if(cnt==len)
					break;
			}
		}
		else
		{
			for(int j=M;j>=1;j--)
			{
				m=max(m,j);
				f[i][j]=c[++cnt]; 
				if(cnt==len)
					break;
			}
		}
		if(cnt==len)
			break;
	}
	for(int i=strlen(f[n]+1)+1;i<=m;i++)
		f[n][i]='R';
	cout<<n<<" "<<m<<endl;
	for(int i=1;i<=n;i++)
		cout<<f[i]+1<<endl;
	cout<<1<<" "<<1<<endl;
	cnt--;
	for(int i=1;i<=n;i++)
	{
		for(int j=1;j<=m-1;j++)
		{
			cnt--;
			if(i%2==1)
				putchar('R');
			else
				putchar('L');
			if(cnt==0)
				break;
		} 
		if(cnt!=0)
			putchar('D');
	}
}
int dis(int x,int y,int n)
{
	return max(abs(x-n/2),abs(y-n/2));
}
void solve3()
{
	int n=30;
	while(1)
	{
		memset(ans,'\0',sizeof(ans));
		memset(f,'\0',sizeof(f));
		
		for(int i=1;i<=n;i+=2) 
			for(int j=1;j<=n;j++)
				f[i][j]=f[i+1][j]=col[((i-1)/2+j)%3];

//		for(int i=1;i<=n;i++)
//			for(int j=1;j<=n;j+=3)
//			{
//				if(i%2==0)
//					f[i][j]=f[i][j+1]='R';
//				else
//					f[i][j]=f[i][j+1]='B';
//				f[i][j+2]='G';
//			}
		
		int sx=0,sy=0;
		for(int i=n/2;i<=n/2+1;i++)
			for(int j=n/2;j<=n/2+1;j++)
				if(f[i][j]==c[1])
					sx=i,sy=j;
					
		int x=sx,y=sy;
		bool flag=false;
		for(int i=2;i<=len;i++)
		{
			int tox=0,toy=0,tdis=114514191,tans=-1;
			for(int j=0;j<4;j++)
			{
				int tx=x+dx[j],ty=y+dy[j];
				if(tx<1||tx>n||ty<1||ty>n||f[tx][ty]!=c[i])
					continue;
				if(dis(tx,ty,n)<tdis)
				{
					tox=tx,toy=ty;
					tans=j;
					tdis=dis(tx,ty,n);
				}
			}
			if(tox==0||toy==0)
			{
				flag=true;
				break;
			}
			ans[i-1]=dir[tans];
			x=tox,y=toy;
		}
		
		if(flag)
		{
			n+=4;
			continue;
		}
		cout<<n<<" "<<n<<endl;
		for(int i=1;i<=n;i++)
			cout<<f[i]+1<<endl;
		cout<<sx<<" "<<sy<<endl;
		cout<<ans+1<<endl;
		break;
	}
}
int main()
{
	freopen("snake.in","r",stdin);
	freopen("snake.out","w",stdout);
	cin>>c+1;
	len=strlen(c+1);
	if(len<=(int)1e4)
		solve1();
//	else if(len<=(int)1.5e4)
//		solve2();
	else
		solve3(); 
}
